home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / midilang / badplay.mpl < prev    next >
Encoding:
Text File  |  1996-02-06  |  984 b   |  80 lines
  1. 19394
  2. #
  3. #
  4. #
  5. #    badplay.mpl
  6. #
  7. #    An bad player that tries to follow you
  8. # 
  9. #           Author           ID               Date
  10. #       ------------    -----------          ---------
  11. #       Serge Sibony    100417,2633          09/14/95
  12. #      
  13. #
  14. # This file is a mpl effect definition used by MidiLang
  15. #    MidiLang can be found at the MidiForum, in the
  16. #         Windows sound media library.
  17. # 
  18. #
  19. # This effect creates a fellow that tries to follow you
  20. # but he's not as good as you :-)
  21. #
  22. #
  23.  
  24. Label Main
  25.  
  26. vel== 0
  27. goto end
  28.  
  29. v+= 1 40
  30. v+=note 1
  31.  
  32. v>vel 1
  33.     v-= 1 100
  34.  
  35. label loop
  36.  
  37. v> 1 0
  38.     goto ok2
  39.  
  40. v+= 1 40
  41. goto loop
  42.  
  43. label ok2
  44. v+=note 2
  45. v+=vel 2
  46.  
  47. v< 2 500
  48.     goto ok
  49.  
  50. note+= 1
  51. v-= 2 100
  52.  
  53. label ok
  54.  
  55. v=v 5 1
  56. v*= 5 5
  57. time+=v 5
  58.  
  59. outmidi
  60.  
  61. vel= 0
  62.  
  63. v=v 5 1
  64. v*= 5 3
  65.  
  66. time+=v 5
  67.  
  68.  
  69. time+= 20
  70.  
  71. outmidi
  72.  
  73. label end
  74.  
  75. End
  76.  
  77. descript an almost real bad player
  78. descript that tries to follow you
  79. descript but he's not so good !!
  80.